From 5196079cad27a4dbcd47783a52934ccf2c2f09f6 Mon Sep 17 00:00:00 2001 From: Kevin Layer Date: Wed, 3 Apr 2013 23:19:58 +0000 Subject: [PATCH] lisp/gnus/mml.el (mml-minibuffer-read-description): Allow passing in a prefix (used by MH-E) --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/mml.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 12de3ccd3ab..f7819a4d7a7 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-04-03 Kevin Layer (tiny change) + + * mml.el (mml-minibuffer-read-description): Allow passing in a prefix + (used by MH-E). + 2013-04-01 Andrew Cohen * nnir.el (nnir-request-update-mark): Improve mark updating in original diff --git a/lisp/gnus/mml.el b/lisp/gnus/mml.el index 3c9344a62c3..3c79d18b0c3 100644 --- a/lisp/gnus/mml.el +++ b/lisp/gnus/mml.el @@ -1212,8 +1212,8 @@ If not set, `default-directory' will be used." string default))) -(defun mml-minibuffer-read-description () - (let ((description (read-string "One line description: "))) +(defun mml-minibuffer-read-description (&optional initial-input) + (let ((description (read-string "One line description: " initial-input))) (when (string-match "\\`[ \t]*\\'" description) (setq description nil)) description)) -- 2.30.2